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BBBBBBBB AAAAAA SSSSSSSS RRRRRRRR EEEEEEEEEE MM MM AAAAAA PPPPPPPP 
BBBBBBBB AAAAAA SSSSSSSS RRRRRRRR EEEEEEEEEE MM MM AAAAAA PPPPPPPP 
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BBBBBBBB Aa AA SSSSSSSS RR RR EEEEEEEEEE MM MM AA AA PP eees 
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14-Sep-1984 BASRTL. 


ZTITLE “BASSREMAP On = Remap an array' 
MODULE SASERERP net ! Remap an 
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cme memes 
fae ne 
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= +4-010" 


BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT €ORPORATION, MAYHARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ONLY IN ACCORDANCE WITH THE TERMS OF S 
N ON E 


H 

S 
SE MADE AVAILABLE TO ANY 
THE SOFTWARE IS HEREBY 
TRANSFERRED, 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aerokat tn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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lee 
! FACILITY: Basic Language Support 
i ABSTRACT: 


This routine is called by the compiled code to renap an array. 
The array will be an array of descriptors, since all dynamic 
variables are stored as descriptors. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Pamela L. Levesque, CREATION DATE: 1-Mar-1982 


-001 - Original. PLL 1-Mar-1982 


Sooooo 
Oo 
> 


' 
i 
i 
) 
4 
i 
t 
i] 
' 
4 
' 
] 
' 
| MODIFIED BY: 
‘ 
4 
t 
‘ 
i 
' 
‘ 
‘ 
1 
: 


002 - Make FETCH, DESC ? separate apdule, PLL 2-Mar-82 

- Correct calculatio 

- Make sure a length is passed for records. PLL 16-Mar-198 
R? = - Make rout ine lobal. PLL 1/7-Mar 

} BASSK_FATINTERR should be OTS$_ Fat NTERR, PLL 18-Mar-1982 


9 - Write the updated buffer pointer into 


0 
oS - Add support for multi dimensioned arrays. PLL 21-May-1 
6 
10 = Update the ength in the buffer descriptor also. PLL 29-Jun- 


ra 
| File: BASREMAP BSS Edit: PLL1010 


n of length of decimal values. PLL {Zaner-1982 
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= pee use the length in the descriptor for records. ate 12-Apr-1982 


V4.0-74 
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buffer destri tor. +) 28-Jun-1982 
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59 058 
60 B26 
61 60 
6¢ 061 
6 806 
64 06 

65 064 
66 065 
67 B08 
68 006 

69 0068 
70 334 
71 070 
Lf: 0071 
? Bore 
74 007 

75 0074 
76 0075 
77 0076 
78 0077 
79 0078 
80 0079 
81 0080 
8¢ 0081 
8 0082 
84 0177 
85 

86 

87 

88 

89 
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RSBTTL ‘Declarations’ 
SWITCHES: 


1 
1 


$ 6 19 
-3ep- 
4 33p-198 


4 QI: 


:04:1 AX-11 Bliss-3 
4 11:56:3 c é 


BASRTL.SRCJBA 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! 

LINKAGES: 
; NONE 
TABLE OF CONTENTS: 


FORWARD ROUTINE 


BASSREMAP_ARRAY : NOVALUE; 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; 
REQUIRE "RTLIN:RTLPSECT'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

FIELDS: 
NONE 

PSECTS: 

ECLARE_PSECTS (BAS); 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


' 
: 
i] 
. 
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° 
' 
. 
J 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
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. 
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. 
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‘ 
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. 
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. 
' 
. 
' 
. 
a 
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EXTERNAL ROUTINE 
BASSSSTOP : NOVALUE, 
LIBSSTOP : NOVALUE; 


shia V1 ig bY be 


BASSK_REMOVEBUF : UNSIGNED (8); 


! Remap an array 


! System symbols, typically from SYS$LIBRARY:STARLET.L32 
! Define PSECT declarations macros 


! Declare PSECTs for BAS$ facility 


Signal fatal basic error 
Signal fatal error 


! Condition value symbols 


' REMAP overflows buffer 


cc 


ne 
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1-010 BASSREMAP_ARRAY = Remap an array 14-Sep-1984 11:56: BASRTL.SRCJBASREMAP .B32; 1 
9 1 ZSBTTL "BASSREMAP_ARRAY = Remap an array’ 
GLOBAL ROUTINE BASSREMAP_ARRAY ( ! Remap an array 
BUFFER, ' buffer desc 
AY, ! array desc 


LENGTH ! Length for strings or records 
) : NOVALUE = 
+ 
FUNCTIONAL DESCRIPTION: 
This routine is called by the compiled code to remap an array of 
descriptors. ‘Remapping’ an ag involves he the pointer 
field in the descriptor, and the length field for strings or 
records. 
i CALLING SEQUENCE: 
BASSREMAP_ARRAY (buffer.rx.ds, array.mx.da, length.rl.v) 


! FORMAL PARAMETERS: 


MMIMUROPUTORORUPOROPURoToNonononofronororopnorororona 


WN SO CONAUES UN O OONOUES WN OO ODN UI ESWWN OC OONAOUS WR "OVOO~ 


, 0 

TB BR 

3 3 8 1 

3; 1 0 1 

rie 0 1 

= 0 1 

p% 0 1 !¢ 

s 3 0 1! 

s Ve 0 1! 

; \¢ 0 : 

; 13 6 1: 

s 3 0 1! 

3; 13 0 1! 

3; 113 0 1! 

, 3a 0 1! 

: 43 0 1! 

a P 0 1! 

;. 13 0 ss 

s tS 0 1! 

.. 99 0 1! buffer addr of desc for MAP buffer 

. 3 0 1! array addr of array desc : 

; 14 0 1! Length Longword Length for oretnes or records 
: 1? : (-1 for default length, 16, for strings) 
; «(14 02 1 ! IMPLICIT INPUTS: 

; 14 0236 1! 

3 (14 0237 1! NONE 

: 14 0738 1! 

; «14 0c39 1°! IMPLICIT OUTPUTS: 

3; (14 0240 1! 

3; «614 0241 1! NONE 

s 39 0242 1! 

; 0243 1 ! COMPLETION STATUS: (or ROUTINE VALUE:) 

:; 0244 1! 

. ae 0245 1! NONE 

3; 0246 1! 

.: 0247 1°! SIDE EFFECTS: 

; 0248 1! ; 

3 0249 1! Will signal if an error occurs 

; 33 0250 1! 

3 0251 1 !-- 

: 16 0252 1 

3; 025 BEGIN 

; 16 025 

: 16 bg? MAP 

: 164 025 BUFFER : REF BLOCK (8, BYTE), ' buffer desc 
3; 165 0257 ARRAY : REF BLOCK (,BYTE); ! array desc 
: 166 0258 

: 167 0259 AL 

; 168 0260 END_ADDR, ! addr of last aria element 
3 169 0261 MAX_BUF _ADDR; ! max addr in buf fe: 
: 170 bso¢ 

eta 6 

: 17 0264 '¢ : 

; Ww 0265 ! Compute the Largest possible address in the buffer. 
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: (174 66 t- 

, 375 6 

3 178 os MAX_BUF _LADDR = .BUFFER CDSCSA_POINTER] + .BUFFER COSC$W_LENGTHI; 

: 178 0270 2 !4 

3; VW 0271 ! Loop through the elements of the array. Update the pointer and length, if 
; 180 0272 : necessary, of each element. Give an error if the maximum size of the MAP 
; «#181 8 72 ! buffer is exceeded. 

; 188 057s 5 

; «4184 0 78 END_ADDR = .ARRAY CDSCSA_POINTER) + .ARRAY CDSCSL_ARSIZE] = . ARRAY COSC$W_LENGTHI; 
; 185 027 INCR VALUE tiie FROM .ARRAY CDSCSA_POINTER] TO .END_ADDR 

; 186 0278 BY .ARRAY CDSC$W_LENGTH] DO 

s ter 0279 GIN 

> «188 0280 P 

: 19? 853) VALUE DESCRIP : REF BLOCK (8, BYTE); 

; «191 0585 VALUE _DESCRIP CDSCSA_POINTER] = .BUFFER CDSCSA_POINTER]; 

: 136 ess IF .VALUE_DESCRIP CDSC$B_DTYPE) EQL DSCSK_DTYPE_T 

3: 19 0285 3 N T set Length for Strings 

; 194 0286 4 VALUE_DESCRIP CDSC$W_LENGTH]) = (IF .LENGTH LSS 0 THEN 16 

3; 195 0287 3 ELSE .LENGTH); 

; 196 0288 3 !+ ; 

3: 197 0289 ! Update pointer into buffer to reflect space that has been ‘used’. 

; 198 0290 !- 

; 199 0291 

; 200 0292 IF .VALUE_DESCRIP CDSC$B_DTYPE] NEQ DSCSK_DTYPE_P 

; 201 029 THEN 

; $08 0294 4 BEGIN 

; 20 0295 4 BUFFER CDSCSA_POINTER] = .BUFFER CDSCSA_POINTER] + .VALUE_DESCRIP CDSC$W_LENGTHI; 
; 204 0296 4 BUFFER CDSC$W_LENGTH] = .BUFFER COSC$W_CENGTH) - .VALUE_DESCRIP CDSC$W_LENGTH); 
; 205 0297 4 END 

3 206 0298 3 ELS 

; 207 0299 4 BEGIN 

; 208 0300 4 LOCAL 

; 209 0301 4 : 

> 210 $44 4 

; 211 0303 4 LEW = .VALUE_DESCRIP COSC$W_LENGTH)/2 + 1; 

; sig 0304 4 BUFFER COSCSA_POINTER) = .BOFFER COSCSA POINTER] + .LEN; 

3 $13 . $308 4 BUFFER COSCSW-LENGTH] = .BUFFER COSCS$W_CENGTH] = .LEN; 

3 315 0307 IF ,BUFFER CDSCSA_POINTER] GTRU .MAX_BUF_ADDR 

$ sii 0309 BASSSSTOP (BAS$K_REMOVEBUF); 

: $15 0311 re: 

3; 220 0312 #1 END; ! End of routine BASSREMAP_ARRAY 


TITLE BASSREMAP_ARRAY BASSREMAP_ARRAY = Remap an arra 
IDENT \1-010\ 


.EXTRN BASS$SSTOP, LIBSSTOP 
-EXTRN BAS$K_REMOVEBUF 


-PSECT _BASSCODE.NOWRT, SHR, PIC,2 
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51 04 
57 
04 
000000006 


; Routine Size: 122 bytes, 


: 221 0313 1 '<BLF/PAGE> 


oF WVU IU" 
MM NM—MmOOCOfw 


uw 
o 


pepe VOO VIM AGW —Ouw 
OWS CO WEO VUNWO 


NSWNO 


Routine Base: 


oc 
02 


006 


o 
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PMMOWDOSVMNMNOKOKUNGSOP UIP OOF — POL ye 
MIN MD SOOOMMNIMMONDNOM FOUN -WwFLOIO 


45 00 
D0 0000 
3 i 
C QOOOA 
C8 0000 
DO 90010 
g! 0014 
g QO1A 
C3 00010 
DO 00021 
11 000 3 
DO 000 
91 00028 
ig 0002F 
D5 00031 
18 00034 
DO 00036 
11 00039 
DO 00038 
BO 0003F 
91 00042 
13 00046 
3C 00048 
CO 90048 
A2 0004E 
11 00051 
3€ 00053 
C6 Bones 
D6 00059 
CO 00058 
A2 0005E 
Di 00061 
1B 00064 
9A 00066 
FB QO06A 
cO 00071 
Di 00074 
15 00077 
04 00079 


-BASSCODE + 0000 


—— 
Ld 
oe 


wr 
PAM 


5$: 


oa 
bad 


co 
ad 


~ 
ci) 
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*MAX_BUF _ADDR 
MAX~BUF ADDR 


R 
4(RO), R1 
R5 


, END_ADDR 
VALUE_DESCRIP 

» 4(VALUE_DESCRIP) 
LUE_DESCRIP), #14 


~@ O-<s = ~rnwD 
_— xz 


>~ 


TH, RO 
. (VALUE_DESCRIP) 
VALUE_DESCRIP), #21 


ALUE_DESCRIP), RO 
ALUE_DESCRIP), (R3) 
ALUE_DESCRIP), RO 

RO 
LEN, (R4) 
LEN, (R3) 
(R45, MAX_BUF_ADDR 
#BASSK_REMOVEBUF, -(SP) 

$$STOP 


R5. VALUE_DESCRIP 
VALUE DESCRIP, END_ADDR 


22~ 
—-ww 


ty waecess, Save R2,R3,R4,R5,R6,R7 


po a 


pecocenronceenieimntani 
BASSREMAP_ARRAY BASSR 
eg » BASSREN 

; 234 03 1 END 

; 4 15 1 

3 es 16 0 ELUDOM 


Name 
_BASSCODE 


File 


Sees ee Se Ge ee 


; Size: 
Run Time: 0:05. 
Elapsed Time: 00:15.4 
Lines/CPU Min: 3577 
Lexemes/CPU-Min: 18588 
Y Used: 69 pages 
Compilation Complete 


Se Se Se Se Se tee 


MAP_ARRAY = Remap an array 
AP_ARRAY = Remap an array 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 
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! End of module BASSREMAP_ARRAY 


PSECT SUMMARY 


Bytes Attributes 
122 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
SoSSwEEE yahols cocceace Pages Processing 
Total Loaded Percent Mapped Time 
9776 6 0 581 00:01.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASREMAP/OBJ=0BJ$:BASREMAP MSRC$:BASREMAP/UPDATE=(ENH$:BASREMAP) 
122 code ; 0 data bytes 


MENT CORPORATION 
AND PROPRIETARY 


= 
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